home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 351-375 / disk_352 / treewalk / rexx / lcompact.ftw < prev    next >
Text File  |  1992-05-06  |  369b  |  14 lines
  1. /*
  2.  * Take each directory/file pair, and build an lcompact command to
  3.  * take things from isrc to INCLUDE:, compacting as we go. Note: the
  4.  * treewalk filter should filter out directories before lcompact is
  5.  * called.
  6.  */
  7. isrc = 'src:include/'
  8.  
  9. dir = arg(1)
  10. file = arg(2)
  11. parse var dir (isrc) out
  12. address command 'lcompact <'dir || file '>include:'out || file
  13. return 1
  14.